Public Class Escopo

    Private strDescricao As String
    Private strPremissa As String
    Private lstAtividade As List(Of Atividade)
    Private strUnidadeEstimativa As String
    Private strId As String
    Private strIdProjeto As String
    Private strSituacao As String
    Private strAvaliacaoEstimativa As String
    Private intNumeroRodada As Integer
    Private lstParticipante As List(Of Participante)
    Private strObservacao As String


    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, ByVal lstAtividade As List(Of Atividade), ByVal strUnidadeEstimativa As String, ByVal strIdProjeto As String, ByVal strId As String)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstAtividade = lstAtividade
        Me.strUnidadeEstimativa = strUnidadeEstimativa
        Me.strIdProjeto = strIdProjeto
        Me.strId = strId
        Me.strSituacao = ""
        Me.strAvaliacaoEstimativa = ""
        Me.intNumeroRodada = 1
        Me.strObservacao = ""
    End Sub

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, _
                    ByVal lstAtividade As List(Of Atividade), _
                    ByVal strUnidadeEstimativa As String, ByVal strIdProjeto As String, _
                    ByVal strId As String, ByVal strSituacao As String, _
                    ByVal intNumeroRodadas As Integer)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstAtividade = lstAtividade
        Me.strUnidadeEstimativa = strUnidadeEstimativa
        Me.strIdProjeto = strIdProjeto
        Me.strId = strId
        Me.strSituacao = strSituacao
        Me.strAvaliacaoEstimativa = ""
        Me.intNumeroRodada = intNumeroRodadas
        Me.strObservacao = ""
    End Sub

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, _
                ByVal lstAtividade As List(Of Atividade), _
                ByVal strUnidadeEstimativa As String, ByVal strIdProjeto As String, _
                ByVal strId As String, ByVal strSituacao As String, _
                ByVal intNumeroRodadas As Integer, ByVal strObs As String, ByVal strAvaliacao As String)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstAtividade = lstAtividade
        Me.strUnidadeEstimativa = strUnidadeEstimativa
        Me.strIdProjeto = strIdProjeto
        Me.strId = strId
        Me.strSituacao = strSituacao
        Me.strAvaliacaoEstimativa = strAvaliacao
        Me.intNumeroRodada = intNumeroRodadas
        Me.strObservacao = strObs
    End Sub

    Public Sub setDescricao(ByVal Descricao As String)
        strDescricao = Descricao
    End Sub

    Public Function getDescricao() As String
        getDescricao = strDescricao
    End Function

    Public Sub setPremissa(ByVal Premissa As String)
        strPremissa = Premissa
    End Sub

    Public Function getPremissa() As String
        getPremissa = strPremissa
    End Function

    Public Sub setListAtividades(ByVal Atividade As List(Of Atividade))
        lstAtividade = Atividade
    End Sub

    Public Function getListAtividades() As List(Of Atividade)
        getListAtividades = lstAtividade
    End Function

    Public Sub setListParticipante(ByVal Participante As List(Of Participante))
        lstParticipante = Participante
    End Sub

    Public Function getListParticipante() As List(Of Participante)
        getListParticipante = lstParticipante
    End Function

    Public Sub setUnidadeEstimativa(ByVal UnidadeEstimativa As String)
        strUnidadeEstimativa = UnidadeEstimativa
    End Sub

    Public Function getUnidadeEstimativa() As String
        getUnidadeEstimativa = strUnidadeEstimativa
    End Function

    Public Sub setObservacao(ByVal Observacao As String)
        strObservacao = Observacao
    End Sub

    Public Function getObservacao() As String
        getObservacao = strObservacao
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setIdProjeto(ByVal Id As String)
        strIdProjeto = Id
    End Sub

    Public Function getIdProjeto() As String
        getIdProjeto = strIdProjeto
    End Function

    Public Sub setSituacao(ByVal Situacao As String)
        strSituacao = Situacao
    End Sub

    Public Function getSituacao() As String
        getSituacao = strSituacao
    End Function

    Public Sub setAvaliacaoEstimativa(ByVal AvaliacaoEstimativa As String)
        strAvaliacaoEstimativa = AvaliacaoEstimativa
    End Sub

    Public Function getAvaliacaoEstimativa() As String
        getAvaliacaoEstimativa = strAvaliacaoEstimativa
    End Function

    Public Sub setNumeroRodada(ByVal NumeroRodada As Integer)
        intNumeroRodada = NumeroRodada
    End Sub

    Public Function getNumeroRodada() As String
        getNumeroRodada = intNumeroRodada
    End Function

    Public Property Descricao() As String
        Get
            Return Me.strDescricao
        End Get
        Set(ByVal Value As String)
            Me.strDescricao = Value
        End Set
    End Property

    Public Property Premissa() As String
        Get
            Return Me.strPremissa
        End Get
        Set(ByVal Value As String)
            Me.strPremissa = Value
        End Set
    End Property

    Public Property UnidadeEstimativa() As String
        Get
            Return Me.strUnidadeEstimativa
        End Get
        Set(ByVal Value As String)
            Me.strUnidadeEstimativa = Value
        End Set
    End Property

    Public Property IdEscopo() As String
        Get
            Return Me.strId
        End Get
        Set(ByVal Value As String)
            Me.strId = Value
        End Set
    End Property


    Public Property Situacao() As String
        Get
            Return Me.strSituacao
        End Get
        Set(ByVal Value As String)
            Me.strSituacao = Value
        End Set
    End Property
End Class
